home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 6: Level 6
/
17 Bit - Level 6 (1998)(Epic Marketing)[!].iso
/
quartz
/
q1169.dms
/
q1169.adf
/
SoundTest
/
SoundTest.bas
< prev
next >
Wrap
BASIC Source File
|
1997-04-10
|
825b
|
47 lines
REM $NOWINDOW
DEFINT a-z
REM $INCLUDE Exec.bh
REM $INCLUDE Intuition.bh
LIBRARY OPEN "exec.library"
LIBRARY OPEN "intuition.library"
mempoint&=allocmem&(100,MEMF_ANY)
st$="Sound Channel Test "+CHR$(169)+" T.Collier 1995."+CHR$(0)
a&=SADD(st$)
l&=LEN(st$)
copymem a&,mempoint&,l&
scrw=PEEKW(SYSTAB):scrh=PEEKW(SYSTAB+2)
WINDOW 1,"Sound Test",(scrw-625,10)-(625,180),20+256,-1
SetWindowTitles WINDOW(7),-1,mempoint&
PRINT:PRINT
ch=0
PRINT "Testing Channel ";ch;" Left Speaker ";
chan ch
PRINT "Testing Channel ";ch;" Right Speaker ";
chan ch
PRINT "Testing Channel ";ch;" Right Speaker ";
chan ch
PRINT "Testing Channel ";ch;" Left Speaker ";
chan ch
STOP -1
SUB chan(ch)
SOUND 440,15.9!,255,ch
PRINT
PRINT
INCR ch
halt
END SUB
SUB halt
t!=TIMER
WHILE TIMER<t!+2
WEND
END SUB